home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / isetl.arc / take.t < prev    next >
Text File  |  1987-08-20  |  482b  |  37 lines
  1. s:= {1,4..16};
  2. t:= [1,4..16];
  3.  
  4. s with 4 = {1,4,7,10,13,16};
  5. s with 3 = {1,3,4,7,10,13,16};
  6. s less 4 = {1,7,10,13,16};
  7. s less 3 = {1,4,7,10,13,16};
  8. s less 1 = {4,7,10,13,16};
  9. s less 16= {1,4,7,10,13};
  10.  
  11. t with 4;
  12.  
  13. "take x from s";
  14. take x from s;
  15. [x,s];
  16. "take x frome t";
  17. take x frome t;
  18. [x,t];
  19. "take x fromb t";
  20. take x fromb t;
  21. [x,t];
  22. "take x from t";
  23. take x from t;
  24. [x,t];
  25.  
  26. s := {};
  27. t := [];
  28.  
  29. take x from s;
  30. [x,s];
  31. take x frome t;
  32. [x,t];
  33. take x fromb t;
  34. [x,t];
  35. take x from t;
  36. [x,t];
  37.